/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amossible / structures / loopy.bak

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 2e 30 30 |AMOS Bas|ic V1.00|
|00000010| 00 00 05 9c 2b 01 06 52 | 00 4e 2a 2a 2a 2a 2a 2a |....+..R|.N******|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 59 4f 55 20 53 |********|***YOU S|
|00000030| 50 49 4e 20 4d 45 20 52 | 4f 55 4e 44 2c 52 4f 55 |PIN ME R|OUND,ROU|
|00000040| 4e 44 2d 42 79 20 4d 61 | 72 6b 20 57 69 63 6b 73 |ND-By Ma|rk Wicks|
|00000050| 6f 6e 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |on******|********|
|00000060| 2a 2a 2a 2a 2a 2a 2a 20 | 00 00 28 01 06 4a 00 48 |******* |..(..J.H|
|00000070| 20 59 6f 75 20 6d 61 79 | 20 62 65 20 77 6f 6e 64 | You may| be wond|
|00000080| 65 72 69 6e 67 20 77 68 | 61 74 20 61 20 6c 6f 6f |ering wh|at a loo|
|00000090| 70 20 69 73 2e 49 6e 20 | 63 6f 6d 70 75 74 65 72 |p is.In |computer|
|000000a0| 20 74 65 72 6d 73 20 69 | 74 20 69 73 20 61 20 70 | terms i|t is a p|
|000000b0| 69 65 63 65 20 6f 66 20 | 00 00 27 01 06 4a 00 46 |iece of |..'..J.F|
|000000c0| 20 61 20 70 72 6f 67 72 | 61 6d 20 74 68 61 74 20 | a progr|am that |
|000000d0| 63 6f 6e 73 74 61 6e 74 | 6c 79 20 72 65 70 65 61 |constant|ly repea|
|000000e0| 74 73 20 69 74 73 65 6c | 66 2e 57 68 79 20 64 6f |ts itsel|f.Why do|
|000000f0| 20 79 6f 75 20 6e 65 65 | 64 20 73 6f 6d 65 74 68 | you nee|d someth|
|00000100| 69 6e 67 20 74 6f 00 00 | 27 01 06 4a 00 46 20 72 |ing to..|'..J.F r|
|00000110| 65 70 65 61 74 20 69 74 | 73 65 6c 66 3f 57 65 6c |epeat it|self?Wel|
|00000120| 6c 2c 69 6d 61 67 69 6e | 65 20 79 6f 75 20 68 61 |l,imagin|e you ha|
|00000130| 64 20 61 20 67 61 6d 65 | 2c 61 6e 64 20 74 68 65 |d a game|,and the|
|00000140| 20 70 6c 61 79 65 72 20 | 63 6f 6e 74 72 6f 6c 6c | player |controll|
|00000150| 65 64 20 61 00 00 28 01 | 06 4a 00 48 20 42 6f 62 |ed a..(.|.J.H Bob|
|00000160| 2f 53 70 72 69 74 65 27 | 73 20 70 6f 73 69 74 69 |/Sprite'|s positi|
|00000170| 6f 6e 20 77 69 74 68 20 | 74 68 65 20 6a 6f 79 73 |on with |the joys|
|00000180| 74 69 63 6b 2d 53 69 6e | 63 65 20 79 6f 75 20 63 |tick-Sin|ce you c|
|00000190| 61 6e 27 74 20 70 72 65 | 64 69 63 74 20 65 78 61 |an't pre|dict exa|
|000001a0| 63 74 6c 79 00 00 28 01 | 06 4a 00 48 20 77 68 65 |ctly..(.|.J.H whe|
|000001b0| 6e 20 74 68 65 20 70 65 | 72 73 6f 6e 20 69 73 20 |n the pe|rson is |
|000001c0| 67 6f 69 6e 67 20 74 6f | 20 64 6f 20 61 6e 79 74 |going to| do anyt|
|000001d0| 68 69 6e 67 20 61 6e 64 | 20 79 6f 75 20 77 6f 75 |hing and| you wou|
|000001e0| 6c 64 20 77 61 6e 74 20 | 74 68 65 20 63 6f 6d 70 |ld want |the comp|
|000001f0| 75 74 65 72 00 00 24 01 | 06 4a 00 40 20 74 6f 20 |uter..$.|.J.@ to |
|00000200| 6b 65 65 70 20 63 68 65 | 63 6b 69 6e 67 20 66 6f |keep che|cking fo|
|00000210| 72 20 61 6e 79 20 6d 6f | 76 65 6d 65 6e 74 2c 79 |r any mo|vement,y|
|00000220| 6f 75 20 6d 75 73 74 20 | 75 73 65 20 6f 6e 65 20 |ou must |use one |
|00000230| 6f 66 20 74 68 65 20 6d | 61 6e 79 20 00 00 27 01 |of the m|any ..'.|
|00000240| 06 4a 00 46 20 22 4c 6f | 6f 70 22 20 73 74 72 75 |.J.F "Lo|op" stru|
|00000250| 63 74 75 72 65 73 2e 4f | 62 76 69 6f 75 73 6c 79 |ctures.O|bviously|
|00000260| 2c 79 6f 75 20 63 61 6e | 20 70 75 74 20 61 6e 79 |,you can| put any|
|00000270| 74 68 69 6e 67 20 74 68 | 61 74 20 79 6f 75 20 77 |thing th|at you w|
|00000280| 61 6e 74 20 64 6f 6e 65 | 20 20 00 00 28 01 06 4a |ant done|  ..(..J|
|00000290| 00 48 20 72 65 70 65 61 | 74 65 64 6c 79 20 69 6e |.H repea|tedly in|
|000002a0| 20 61 20 6c 6f 6f 70 2d | 52 65 6d 65 6d 62 65 72 | a loop-|Remember|
|000002b0| 69 6e 67 20 74 68 61 74 | 20 74 68 65 20 6d 6f 72 |ing that| the mor|
|000002c0| 65 20 79 6f 75 20 70 75 | 74 20 69 6e 74 6f 20 61 |e you pu|t into a|
|000002d0| 20 6c 6f 6f 70 2c 74 68 | 65 20 00 00 16 01 06 4a | loop,th|e .....J|
|000002e0| 00 24 20 6c 6f 6e 67 65 | 72 20 69 74 20 74 61 6b |.$ longe|r it tak|
|000002f0| 65 73 20 74 6f 20 67 6f | 20 74 68 72 6f 75 67 68 |es to go| through|
|00000300| 20 69 74 2e 20 20 00 00 | 24 01 06 4a 00 40 20 54 | it.  ..|$..J.@ T|
|00000310| 68 69 73 20 70 61 72 74 | 69 63 75 6c 61 72 20 73 |his part|icular s|
|00000320| 6f 72 74 20 6f 66 20 6c | 6f 6f 70 20 75 73 65 73 |ort of l|oop uses|
|00000330| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 73 20 22 44 | the com|mands "D|
|00000340| 6f 22 20 61 6e 64 20 22 | 4c 6f 6f 70 22 2e 00 00 |o" and "|Loop"...|
|00000350| 1a 01 06 4a 00 2c 20 57 | 68 65 6e 20 79 6f 75 20 |...J., W|hen you |
|00000360| 77 61 6e 74 20 79 6f 75 | 72 20 6c 6f 6f 70 20 74 |want you|r loop t|
|00000370| 6f 20 73 74 61 72 74 2c | 79 6f 75 20 74 79 70 65 |o start,|you type|
|00000380| 20 20 00 00 06 01 06 4a | 00 04 20 44 6f 20 00 00 |  .....J|.. Do ..|
|00000390| 23 01 06 4a 00 3e 20 54 | 68 65 6e 20 61 66 74 65 |#..J.> T|hen afte|
|000003a0| 72 20 74 68 69 73 20 79 | 6f 75 20 70 75 74 20 61 |r this y|ou put a|
|000003b0| 73 20 6d 61 6e 79 20 6c | 69 6e 65 73 20 6f 66 20 |s many l|ines of |
|000003c0| 70 72 6f 67 72 61 6d 20 | 63 6f 64 65 20 61 73 20 |program |code as |
|000003d0| 79 6f 75 20 00 00 25 01 | 06 4a 00 42 20 77 61 6e |you ..%.|.J.B wan|
|000003e0| 74 2d 57 68 65 6e 20 79 | 6f 75 20 68 61 76 65 20 |t-When y|ou have |
|000003f0| 61 6c 6c 20 79 6f 75 20 | 77 61 6e 74 2c 74 79 70 |all you |want,typ|
|00000400| 65 28 4f 6e 20 74 68 65 | 20 73 74 61 72 74 20 6f |e(On the| start o|
|00000410| 66 20 61 20 6e 65 77 20 | 6c 69 6e 65 29 3a 00 00 |f a new |line):..|
|00000420| 07 01 06 4a 00 06 20 4c | 6f 6f 70 20 00 00 2a 01 |...J.. L|oop ..*.|
|00000430| 06 4a 00 4c 20 54 68 69 | 73 20 6d 61 6b 65 73 20 |.J.L Thi|s makes |
|00000440| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 72 65 74 75 |the prog|ram retu|
|00000450| 72 6e 20 74 6f 20 74 68 | 65 20 22 44 6f 22 20 63 |rn to th|e "Do" c|
|00000460| 6f 6d 6d 61 6e 64 20 77 | 72 69 74 74 65 6e 20 65 |ommand w|ritten e|
|00000470| 61 72 6c 69 65 72 2c 61 | 6e 64 20 74 68 65 6e 20 |arlier,a|nd then |
|00000480| 00 00 16 01 06 4a 00 24 | 20 73 74 61 72 74 20 72 |.....J.$| start r|
|00000490| 65 61 64 69 6e 67 20 63 | 6f 6d 6d 61 6e 64 73 20 |eading c|ommands |
|000004a0| 66 72 6f 6d 20 74 68 65 | 72 65 2e 20 00 00 26 01 |from the|re. ..&.|
|000004b0| 06 4a 00 44 20 49 6e 20 | 6f 75 72 20 65 78 61 6d |.J.D In |our exam|
|000004c0| 70 6c 65 2c 77 65 20 64 | 69 73 70 6c 61 79 20 73 |ple,we d|isplay s|
|000004d0| 6f 6d 65 20 74 65 78 74 | 2c 6d 61 6b 65 20 41 4d |ome text|,make AM|
|000004e0| 4f 53 20 77 61 69 74 20 | 61 20 66 72 61 63 74 69 |OS wait |a fracti|
|000004f0| 6f 6e 20 6f 66 20 61 20 | 00 00 1d 01 06 4a 00 32 |on of a |.....J.2|
|00000500| 20 73 65 63 6f 6e 64 20 | 61 6e 64 20 74 68 65 6e | second |and then|
|00000510| 20 72 65 74 75 72 6e 20 | 74 6f 20 74 68 65 20 73 | return |to the s|
|00000520| 74 61 72 74 20 6f 66 20 | 74 68 65 20 6c 6f 6f 70 |tart of |the loop|
|00000530| 2e 20 00 00 14 01 09 ea | 00 3e 00 00 00 00 00 5c |. ......|.>.....\|
|00000540| 00 3e 00 00 01 40 00 5c | 00 3e 00 00 01 00 00 5c |.>...@.\|.>.....\|
|00000550| 00 3e 00 00 00 04 00 5c | 0c 90 00 00 03 01 0d 34 |.>.....\|.......4|
|00000560| 00 00 03 01 14 46 00 00 | 06 01 0b b8 00 3e 00 00 |.....F..|.....>..|
|00000570| 00 00 00 00 06 01 13 dc | 00 3e 00 00 00 00 00 00 |........|.>......|
|00000580| 04 01 02 7e 00 28 00 00 | 0b 01 04 76 00 26 00 0b |...~.(..|...v.&..|
|00000590| 47 4f 49 4e 47 20 44 4f | 57 4e 21 00 00 00 06 01 |GOING DO|WN!.....|
|000005a0| 12 9e 00 3e 00 00 00 05 | 00 00 03 01 02 86 00 00 |...>....|........|
|000005b0| 41 6d 42 73 00 00       |                         |AmBs..  |        |
+--------+-------------------------+-------------------------+--------+--------+